home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / linien demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  319 b   |  14 lines
  1. 5 rem ***********************
  2. 6 rem * linien demo (hires) *
  3. 7 rem ***********************
  4. 10 gosub 50000:rem grafik ein
  5. 20 gosub 50100:rem grafik loeschen
  6. 30 vo=0:hi=14
  7. 40 gosub 50200:rem farbe setzen
  8. 50 for x=0 to 318 step 5
  9. 60 sys 49821,x,x/1.7,318-x,y,3
  10. 65 sys 49821,x,199-x/1.7,318-x,199-y,3
  11. 70 y=y+1:if y>199 then y=199
  12. 80 next x
  13. 90 end
  14.